
(*
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$
$$$   PASCAL FILE NAME .................... TK.PART1.TEXT
$$$   PASCAL FILE TYPE .................... TEXT
$$$   PASCAL FILE DATE .................... 1985-MAY-31
$$$
$$$   PASCAL VOLUME NAME .................. TK
$$$
$$$   DISK IMAGE NAME ..................... A2PASDT1
$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$
$$$   DISK IMAGE COMMENT:
$$$
$$$     APPLE II PASCAL DESKTOP TOOLKIT - MOUSE GRAPHICS - 1988 - 1/4
$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
*)


   const
      max_windows= 5;
      
      
      { Menu Constants }
      apple_menu = 1;
      file_menu = 2;
      edit_menu = 3;
      Window_menu = 4;
      MTest_Menu = 5;
      WTest_Menu = 6;
      dummy_menu = 7;
      
      { Window Constants }
      small_id = 1;
      big_id = 2;
      chars_id = 3;
      test_id = 4;
      dialog_id = 5;
   
   type
      
      charblock= packed array [0..511] of char;
      
   var
      x : integer;
      
      ctlchange,    {controls changed}
      DoGoAway,     {clicked in goaway box}
      ItGrew,       {window grew}
      QuitSelected, {Quit the program?}
      thumbmoved,   {has the thumb moved?}
      use_interrupts{use the mouse in interrupt mode?}
        : boolean;
      
      space
        : char;
        
      tempfile                  { used for loading the font }
        : file;
        
      PtrToData
        : ^charblock;
      
      MainPort : grafport;
      
      
      
      PtrToFont,
      column,
      dragx,
      dragy,
      linenumber,
      menu_choice,
      menu_id,
      MouseSlot,        {obtained by StartDeskTop}
      nextwindow,
      oldpos,
      screenx,
      screeny,
      thumbpos,
      topwindow,
      vislength,
      viswidth,
      windowid,
      VMajor,
      VMedium,
      VMinor,
      VRelease
        : integer;
        
      VStatus : char;
      
      event
        : type_event;
      
      whicharea
        : type_area;
        
      whichctl
        : ctlarea;
        
      whichpart
        : ctlpart;
      
      {Menubar data structure}
      a_menubar
        : menu_bar;
      
      {Menu data structures}
      MData
        : array [1..max_menus] of menu_data;
      
      {Menubar titles}
      MTitle
        : array [1..max_menus] of title_str;
      
      { Each of these string arrays is set up to use just the
        right amount of space for the menu that use it. }
        
      {Quit menu items title}
      AppleItem
        : array [1..1] of item_str;
        
      {File menu item titles}
      FileItem
        : array [1..1] of item_str;
        
      {Edit menu item titles}
      EditItem
        : array [1..5] of item_str;
        
      {Window menu item titles }
      WindowItem
        : array [1..7] of item_str;
        
      {Menu Test item titles }
      MTItem
        : array [1..9] of item_str;
        
      {Window Test Item Titles }
      WTItem
        : array [1..10] of item_str;
        
      {Dummy Item Titles }
      DummyItem
        : array [1..10] of item_str;
        
        
        
      { Array of window titles }
      WTitle
        : array [1..max_windows] of title_str;
        
      { Array of Winfos.  Winfo[0] is a master winfo, set up
        with a bunch of standard values.  Other winfos are initialized
        by copying from winfo[0] to the new winfo. }
      a_winfo
        : packed array [0..max_windows] of winfo;
        
      a_string
        : string;
        
        

{ Some Utility Procedures }

procedure SoundBell;
    begin { SoundBell }
       write(chr(7));
    end; { of SoundBell }


{ We do this in this way so we can do a readln without
  destroying the pattern data used by the primitives and 
  kept in the text buffers $400-$800.  (0,20) is an
  unused location. }
procedure doreadln;
   begin { doreadln }
      gotoxy(0, 20);
      readln;
   end; { of doreadln }
   



(*
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$   END OF FILE : TK - TK.PART1.TEXT
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

File brought to you by:

Apple Macintosh Apple II Pascal Disk Image Dumper 1.0.0 (16 May 2004)
David T Craig (Santa Fe, New Mexico, USA)
shirlgato@cybermesa.com / dcraig@cyberwolf.com

Sunday, June 20, 2004 -- 1:52:10 PM
*)

